home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 05.zip
/
BS1 part 5
/
World_Atlas_1.adf
/
REXX
/
edit.wa
< prev
next >
Wrap
Text File
|
1991-09-25
|
710b
|
40 lines
/*
World Atlas V2.50b - AREXX Script (edit example)
Written By Henrik Brinch
This example illustrates the use of the gadget commands.
In this AREXX script we call the editor for the countries
(numbered 0-10) and exits each edit-card when the user
clicks the "menu"-gadget (that's why I've switched gadget 1 off
which equals "menu"-gadget - any other gadget could've been
chosen.
Remember to switch the gadgets ON after using the gadget_off
command in your own AREXX scripts!
*/
address 'atlas'
options results
gadget_off 1
do i=0 to 10
clr_gadget
k = 0
editor 0 i
do while k ~= 1
gadget
k = result
end
end
gadget_on 1 /* Whoops I nearly forgot this important one! */